بسم الله الرحمن الرحيم 
اسناد أكثر من جدول لأداة ٤456)و‏ 5 
تعد الاداة ٤6؟ه)ه(‏ من أشهر الادوات عند التعامل مع قواعد البيانات في لغة فيجوال بيسك دوت نت .. 
ومن المعروف اننا نقوم باسناد جدول لهذه الاداة » ثم نقوم باستخدام هذا الجدول .. سواء باضافة معلومات اليه » تعديل معلوماته 
»ءحذف معلومات منه ٬البحث‏ عن معلومات في الجدول .. وغيرها من العمليات التي تجري على قواعد البيانات .. 


لكن قد يتبادر الى ذهن البعض منا سؤال مهم .. وهو : 
هل يمكن اسناد اكثر من جدول لأداة ا86)ه ؟ وكيف نتعامل مع الجداول ؟ 
الجواب وبكل بساطة : نعم » يمكننا اسناد أكثر من جدول لاداة †م؟a)ه(‏ .. 


من خلال درسنا البسيط هذا » سنتعلم كيف نضيف اكثر من جدول لأداة أ6؟ه)ه وكيف نتعامل مع الجداول .. 
وتجدر الاشارة الى اننا سنستخدم الشفرات في جميع الامثلة المذكور ولن نستخدم المعالج في عملنا . 


ملاحظة: 

لقد تطرقت من خلال هذا الدرس الى طريقتين فقط لأسناد اكثر من جدول لأداة 6ه( » لذلك فبكل تاكيد توجد طريق واساليب 
اخرى لم نتطرق لذكرها ... 

البداية : 


سنقوم في بداية الامر بشرح كيفية ربط جدول واحد بالاداة )هه ..من خلال الشفرة التالية : 
Imports System.Data‏ 
Imports System.Data.OleDb‏ 
EFABLILGE: CLS8S FOEML‏ 


DIM. CORSEE AS: SEEING =. SELECT #: FEO. TaBLE™ 
DIM YBEOY AE SEEING = UDPEOVIIEE EMICEOSOE ESE. OLEDB AOR 
"Data Source =" & Application.StartupPath & "\testdata.mdb" 


Dim Conn As New OleDbConnection (Prov) 
Dim Adapterl1l As New OleDbDataAdapter (ConStr, Conn) 
Dim DataSetl1 As New DataSet 


Private Sub. Forml Load (ByVal sender As System.Object, ByVal é As 
System.EventArgs) Handles MyBase.Load 

Conn . Open () 

Adapterl1l.Fill (DataSetl, "Table1") 

Conn.Close() 

TextBox1.DataBindings.AQdd("Text", DataSetl, "Tablel.FirstName") 


ERQ. SUBD 


الشفرة السابقة تقوم باضافة الجدول 1ء1طه"۲ الى أداة 586٤1‏ .. ونقوم بعرض محتوي الحقل ع40 ]ء۴۲ في صندوق 
النص. 


الطريقة الاولى لأسناد أكثر من جدول : 
تتلخص هذه الطريقة في استخدام اکثر من اداة OleDataAdapter‏ »> حیث نستخدم لكل جدول نسخة من الاداة .. كما موضح في 
الشفرة التالية : 
Imports System.Data‏ 
Imports System.Data.OleDb‏ 
PULL Class FoEML‏ 


DIR. CORNSEE As SEEING = SELECT * FEOM TablLel™ 

Dim ConStrl1 As String = "SELECT * FROM Table2™ 

IRM BEOY AS SEEING = PEONTIEE MICOS E: YEE OLEDB AUF. 
"Data Source =" & Application.StartupPath & "\testdata.mdb" 


Dim Conn As New OleDbConnection (Prov) 

Dim Adapterl As New OleDbDataAdapter (ConStr, Conn) 
Dim Adapter2 As New OleDbDataAdapter (ConStrl, Conn) 
Dim DataSet1 As New DataSet 


Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
Conn .Open () 


Adapter1.Fill (DataSetl, "Table1") 

Adapter2.Fill (DataSetl, "Table2") 

Conn.Close () 

TextBox1.DataBindings.Add("Text", DataSetl, "Tablel.FirstName") 
TextBox2.DataBindings.Add ("Text", DataSetl, "Table2.FirstName") 
ERA: Sub 


هنا استخدمنا 1إمام هل۸ للتعامل مع الجدول 1ء1طه1 واسناده لأداة 1٤e؟a†۾0‏ .. 

واستخدمنا 2إم1م هل۸ للتعامل مع الجدول 2ع[طه1 واسناده لأداة e†1؟a†۾0‏ .. 

ونلاحظ ان صندوق النص 1٥×180×1‏ يقوم بعرض محتوی الحقل .]ء۴۲ من الجدول 1ع1طھ٣‏ .. 
اما صندوق النص 0×2 1۴×8 فيقوم بعرض محتوى الحقل .]ء۴۲ من الجدول 2ع1طھ٣‏ ... 


الطريقة الثانية لإسناد أكثر من جدول : 
في الطريقة الاولى قمنا باستخدام نسخة من الاداة مةل 024ء01 لكل جدول .. اما في هذه الطريقة فنقوم باستخدام عبارة 
1 لكل جدول جديد » كما موضح في المتال التالي : 
IMPDOFES SySteMm.Data‏ 
Imports System.Data.OleDb‏ 
PFUBDLIE CLa8S ‘FOEML‏ 


DIM. CORSEE AS SEEING = SELECT ™ FFOM. TaBDLeI™ 

Dim ConStrl1 As String = "SELECT * FROM Table2"™ 

DIN.BEOYE A SEEING & NPEONTIEE MICFOSOEE: TEE 4 OLEDBS AUT E 
"Data Source =" & Application.StartupPath & "\testdata.mdb" 
Dim Conn As New OleDbConnection (Prov) 

Dim Adapterl As New OleDbDataAdapter (ConStr, Conn) 


Dim DataSet1 As New DataSet 


Private Sub Forml Load(ByVal sender As8 System.Object; ByVal eé As 
System.EventArgs) Handles MyBase.Load 

Conn . Open () 

Adapter1.Fill (DataSetl, "Table1l™") 

Adapterl = New OleDbDataAdapter (ConStrl, Conn) 

Adapter1.Fill (DataSetl, "Table2") 

Conn.Close () 

TextBox1.DataBindings.AQdd("Text", DataSetl, "Tablel.FirstName ") 

TextBox2.DataBindings.AQdd("Text", DataSetl, "Table2.FirstName") 
EHA SUB 


نلاحظ اننا استخدمنا كل من 1١٤8مهع‏ , إا5مرهع للتعامل مع جدولين مختلفين 2ع1طه٠‏ ,1ءع1طه1 في قاعدة البيانات . 


تتلخص هذه الطريقة في اننا نسند المتغير Contr‏ للأداة 1هل ونقوم باسناد الجدول DataSet1 sll Table1‏ .. 
ثم نقوم باسناد المتغير 51و0٥‏ للاداة ۲1ع) مةل » ونقوم باسناد الجدول 2ع][طه1 للاداة Da†a8¢†1‏ .. 


ونلاحظ ان صناديق النصو ص تعرض قیم الحقول لجدولين مختلفين من نفس نسخة الاداة 1)عS؟aاةD‏ . 


الى هنا انتهى درسنا .. ارجو ان تكونوا قد استفدتم من الدرس .. 
ملتقانا في دروس قادمة ومعلومات جديدة باذن الله 


المهندس 
عدي ياسين 
بكالوريوس هندسة حاسوب 
engauday@hotmail.com‏ 
Ye V-_f_°‏ 


